home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 4 / Mac Giga-ROM 4.0 - 1993.toast / FILES / HYP / R-S / Stack Analyzer / card_4759.txt < prev    next >
Encoding:
Text File  |  1989-04-13  |  15.7 KB  |  417 lines
  1. -- card: 4759 from stack: in
  2. -- bmap block id: 2226
  3. -- flags: 0000
  4. -- background id: 4396
  5. -- name: Text Dump
  6. ----- HyperTalk script -----
  7. on MouseUp
  8.   if (visible of bkgnd field 1 = false) then show background field 1
  9. end mouseup
  10.  
  11.  
  12. -- part 6 (button)
  13. -- low flags: 00
  14. -- high flags: 8004
  15. -- rect: left=292 top=322 right=342 bottom=359
  16. -- title width / last selected line: 0
  17. -- icon id / first selected line: 0 / 0
  18. -- text alignment: 1
  19. -- font id: 0
  20. -- text size: 12
  21. -- style flags: 0
  22. -- line height: 16
  23. -- part name: Save
  24. ----- HyperTalk script -----
  25.  
  26. --
  27. --Routine to store text. After each dump a Tab is inserted
  28. --
  29.  
  30. on mouseUp
  31.  
  32.   hide bkgnd field 1
  33.   setLocks true
  34.   if Bkgnd field 1 is empty then
  35.     answer "There is no text to save!"
  36.     exit mouseUp
  37.   end if
  38.  
  39.   saveText 1
  40.  
  41.   show bkgnd field 1
  42.   setLocks false
  43.  
  44. end mouseUp
  45.  
  46.  
  47.  
  48. -- part 7 (button)
  49. -- low flags: 00
  50. -- high flags: 8004
  51. -- rect: left=360 top=322 right=342 bottom=429
  52. -- title width / last selected line: 0
  53. -- icon id / first selected line: 0 / 0
  54. -- text alignment: 1
  55. -- font id: 0
  56. -- text size: 12
  57. -- style flags: 0
  58. -- line height: 16
  59. -- part name: Read
  60. ----- HyperTalk script -----
  61.  
  62. --
  63. --Routine to read in text.
  64. --
  65.  
  66. on mouseUp
  67.   put empty into fileNm
  68.   hide bkgnd field 1
  69.   setLocks true
  70.   ask "Read text from? [? list]" with "? ? ? ?"&".txt"
  71.   if it is empty then
  72.     show bkgnd field 1
  73.     Exit mouseUp
  74.   end if
  75.   --external call to fileName
  76.   if first character of it is "?" then put fileName("TEXT") into fileNm
  77.   else put it into fileNm
  78.   if fileNm = empty then
  79.     show bkgnd field 1
  80.     Exit mouseUp
  81.   end if
  82.   open file fileNm
  83.   put empty into bkgnd field 1
  84.   put 0 into tabNm
  85.   ask "Skip ahead how many tabs" with tabnm
  86.   if It is empty then
  87.     show bkgnd field 1
  88.     Exit mouseUp
  89.   end if
  90.   put it into tabNm
  91.   if tabNm > 20 or tabNm <0 then exit mouseUp
  92.   repeat with i = 1 to 20
  93.     read from file fileNm until tab
  94.     if It = empty then exit repeat
  95.     put "Now reading text block " &i
  96.     if (the number of chars of bkgnd fld 1 + number of chars of it) >30000    then
  97.       answer "Text " & i &&"will exceed max. # of characters"
  98.       exit repeat
  99.     end if
  100.     if i > tabNm then put it after bkgnd field 1
  101.   end repeat
  102.   close file fileNm
  103.   show bkgnd field 1
  104.   setlocks false
  105.   set scroll of bkgnd field 1 to 0
  106.   hide message
  107.  
  108. end mouseUp
  109.  
  110.  
  111.  
  112. -- part 8 (button)
  113. -- low flags: 00
  114. -- high flags: 8004
  115. -- rect: left=430 top=322 right=342 bottom=496
  116. -- title width / last selected line: 0
  117. -- icon id / first selected line: 0 / 0
  118. -- text alignment: 1
  119. -- font id: 0
  120. -- text size: 12
  121. -- style flags: 0
  122. -- line height: 16
  123. -- part name: Print
  124. ----- HyperTalk script -----
  125. on mouseUp
  126.   hide bkgnd field 1
  127.   setLocks true
  128.   doMenu Print Report...
  129.   setLocks false
  130.   show bkgnd field 1
  131. end mouseUp
  132.  
  133.  
  134.  
  135. -- part 9 (button)
  136. -- low flags: 00
  137. -- high flags: 8004
  138. -- rect: left=224 top=322 right=342 bottom=291
  139. -- title width / last selected line: 0
  140. -- icon id / first selected line: 0 / 0
  141. -- text alignment: 1
  142. -- font id: 0
  143. -- text size: 12
  144. -- style flags: 0
  145. -- line height: 16
  146. -- part name: Analysis
  147. ----- HyperTalk script -----
  148. on mouseUp
  149.   visual effect wipe left
  150.   go to card 2
  151.   hide card button id 10
  152. end mouseUp
  153.  
  154.  
  155.  
  156. -- part contents for background part 1
  157. ----- text -----
  158.  
  159.  * * * STACK ANALYSIS * * *            of Stack: Music Stack 3.01
  160.       Tuesday, February 21, 1989    11:15 AM
  161. ==================================================
  162.     WITH: ....................................
  163.              List of Buttons and Fields
  164.  
  165.  
  166.     FOR: CARDS 1 to 33
  167.  
  168.        ‚Ä¢ stack "Music Stack 3.01" ‚Ä¢
  169.            contains 5 bkgnds and 33 cards 
  170.            - bkgnds and cards  of stack "Music Stack 3.01"
  171.               1. bkgnd "Discs"  (Id: 2667) of cards 16 to 33
  172.                   contains 15 bkgnd fields and 19 bkgnd buttons 
  173.                   - bkgnd fields and bkgnd buttons  of bkgnd "Discs"
  174.                      1. bkgnd field "Name"  (Id: 2)
  175.                      2. bkgnd field "Artist"  (Id: 16)
  176.                      3. bkgnd field "Company"  (Id: 14)
  177.                      4. bkgnd field "Number"  (Id: 17)
  178.                      5. bkgnd field "Year"  (Id: 18)
  179.                      6. bkgnd field "Spars"  (Id: 19)
  180.                      7. bkgnd field "Songs"  (Id: 10)
  181.                      8. bkgnd field "Index Number"  (Id: 37)
  182.                      9. bkgnd field "Notes"  (Id: 39)
  183.                      10. bkgnd field "3 Inch"  (Id: 40)
  184.                      11. bkgnd field "5 Inch"  (Id: 41)
  185.                      12. bkgnd field "5 Sing"  (Id: 42)
  186.                      13. bkgnd field "Double"  (Id: 43)
  187.                      14. bkgnd field "Time"  (Id: 48)
  188.                      15. bkgnd field "Format"  (Id: 71)
  189.                      1. bkgnd button "Show All"  (Id: 6)
  190.                      2. bkgnd button "Home"  (Id: 27)
  191.                      3. bkgnd button "Find"  (Id: 32)
  192.                      4. bkgnd button "New Disc"  (Id: 55)
  193.                      5. bkgnd button "Delete Disc"  (Id: 56)
  194.                      6. bkgnd button "Sort"  (Id: 57)
  195.                      7. bkgnd button "Print"  (Id: 58)
  196.                      8. bkgnd button id 59  (Id: 59)
  197.                      9. bkgnd button id 60  (Id: 60)
  198.                      10. bkgnd button "Compact Discs"  (Id: 61)
  199.                      11. bkgnd button "Compact Discs"  (Id: 62)
  200.                      12. bkgnd button "Tapes"  (Id: 63)
  201.                      13. bkgnd button "Dubs"  (Id: 64)
  202.                      14. bkgnd button "3 Inch"  (Id: 65)
  203.                      15. bkgnd button "5 Inch"  (Id: 66)
  204.                      16. bkgnd button "5 Sing"  (Id: 67)
  205.                      17. bkgnd button "Double"  (Id: 68)
  206.                      18. bkgnd button "Double"  (Id: 69)
  207.                      19. bkgnd button "About"  (Id: 70)
  208.               2. bkgnd "Records"  (Id: 2991) of cards 4 to 8
  209.                   contains 10 bkgnd fields and 14 bkgnd buttons 
  210.                   - bkgnd fields and bkgnd buttons  of bkgnd "Records"
  211.                      1. bkgnd field "Name2"  (Id: 6)
  212.                      2. bkgnd field "Artist2"  (Id: 7)
  213.                      3. bkgnd field "Company2"  (Id: 8)
  214.                      4. bkgnd field "Number2"  (Id: 9)
  215.                      5. bkgnd field "Year2"  (Id: 10)
  216.                      6. bkgnd field "Notes2"  (Id: 13)
  217.                      7. bkgnd field "Index Number"  (Id: 19)
  218.                      8. bkgnd field "Side 1.2"  (Id: 34)
  219.                      9. bkgnd field "Side 2.2"  (Id: 35)
  220.                      10. bkgnd field "Format"  (Id: 37)
  221.                      1. bkgnd button "Compact Discs"  (Id: 1)
  222.                      2. bkgnd button "Records"  (Id: 3)
  223.                      3. bkgnd button "Tapes"  (Id: 4)
  224.                      4. bkgnd button "Dubs"  (Id: 5)
  225.                      5. bkgnd button id 23  (Id: 23)
  226.                      6. bkgnd button id 24  (Id: 24)
  227.                      7. bkgnd button "New Record"  (Id: 25)
  228.                      8. bkgnd button "Delete Record"  (Id: 26)
  229.                      9. bkgnd button "Find"  (Id: 27)
  230.                      10. bkgnd button "Sort"  (Id: 28)
  231.                      11. bkgnd button "Show All"  (Id: 29)
  232.                      12. bkgnd button "About"  (Id: 30)
  233.                      13. bkgnd button "Print"  (Id: 31)
  234.                      14. bkgnd button "Home"  (Id: 33)
  235.               3. bkgnd "Tapes"  (Id: 18853) of cards 9 to 12
  236.                   contains 14 bkgnd fields and 18 bkgnd buttons 
  237.                   - bkgnd fields and bkgnd buttons  of bkgnd "Tapes"
  238.                      1. bkgnd field "Name3"  (Id: 5)
  239.                      2. bkgnd field "Artist3"  (Id: 6)
  240.                      3. bkgnd field "Company3"  (Id: 7)
  241.                      4. bkgnd field "Number3"  (Id: 8)
  242.                      5. bkgnd field "Year3"  (Id: 9)
  243.                      6. bkgnd field "Side 1.3"  (Id: 11)
  244.                      7. bkgnd field "Notes3"  (Id: 12)
  245.                      8. bkgnd field "Plain"  (Id: 15)
  246.                      9. bkgnd field "Dolby B"  (Id: 16)
  247.                      10. bkgnd field "Dolby C"  (Id: 17)
  248.                      11. bkgnd field "Index Number"  (Id: 18)
  249.                      12. bkgnd field "Side 2.3"  (Id: 35)
  250.                      13. bkgnd field "HX Pro"  (Id: 36)
  251.                      14. bkgnd field "Format"  (Id: 39)
  252.                      1. bkgnd button "Compact Discs"  (Id: 1)
  253.                      2. bkgnd button "Compact Discs"  (Id: 2)
  254.                      3. bkgnd button "Tapes"  (Id: 3)
  255.                      4. bkgnd button "Dubs"  (Id: 4)
  256.                      5. bkgnd button "Plain"  (Id: 20)
  257.                      6. bkgnd button "Dolby B"  (Id: 21)
  258.                      7. bkgnd button id 22  (Id: 22)
  259.                      8. bkgnd button id 23  (Id: 23)
  260.                      9. bkgnd button "New Tape"  (Id: 24)
  261.                      10. bkgnd button "Delete Tape"  (Id: 25)
  262.                      11. bkgnd button "Find"  (Id: 26)
  263.                      12. bkgnd button "Sort"  (Id: 27)
  264.                      13. bkgnd button "Show All"  (Id: 28)
  265.                      14. bkgnd button "About"  (Id: 29)
  266.                      15. bkgnd button "Print"  (Id: 30)
  267.                      16. bkgnd button "Dolby C"  (Id: 31)
  268.                      17. bkgnd button "Home"  (Id: 32)
  269.                      18. bkgnd button "HX Pro"  (Id: 37)
  270.               4. bkgnd "Dubs"  (Id: 26013) of cards 13 to 15
  271.                   contains 11 bkgnd fields and 18 bkgnd buttons 
  272.                   - bkgnd fields and bkgnd buttons  of bkgnd "Dubs"
  273.                      1. bkgnd field "Name4"  (Id: 4)
  274.                      2. bkgnd field "Year4"  (Id: 8)
  275.                      3. bkgnd field "Notes4"  (Id: 11)
  276.                      4. bkgnd field "Index Number"  (Id: 17)
  277.                      5. bkgnd field "Plain"  (Id: 37)
  278.                      6. bkgnd field "Dolby B"  (Id: 38)
  279.                      7. bkgnd field "Dolby C"  (Id: 39)
  280.                      8. bkgnd field "Side 1.4"  (Id: 40)
  281.                      9. bkgnd field "Side 2.4"  (Id: 42)
  282.                      10. bkgnd field "HX Pro"  (Id: 44)
  283.                      11. bkgnd field "Format"  (Id: 46)
  284.                      1. bkgnd button "Compact Discs"  (Id: 1)
  285.                      2. bkgnd button "Compact Discs"  (Id: 2)
  286.                      3. bkgnd button "Dubs"  (Id: 3)
  287.                      4. bkgnd button id 21  (Id: 21)
  288.                      5. bkgnd button id 22  (Id: 22)
  289.                      6. bkgnd button "New Dub"  (Id: 23)
  290.                      7. bkgnd button "Delete Dub"  (Id: 24)
  291.                      8. bkgnd button "Find"  (Id: 25)
  292.                      9. bkgnd button "Sort"  (Id: 26)
  293.                      10. bkgnd button "Show All"  (Id: 27)
  294.                      11. bkgnd button "About"  (Id: 28)
  295.                      12. bkgnd button "Print"  (Id: 29)
  296.                      13. bkgnd button "Home"  (Id: 31)
  297.                      14. bkgnd button "Tapes"  (Id: 33)
  298.                      15. bkgnd button "Plain"  (Id: 34)
  299.                      16. bkgnd button "Dolby B"  (Id: 35)
  300.                      17. bkgnd button "Dolby C"  (Id: 36)
  301.                      18. bkgnd button "HX Pro"  (Id: 43)
  302.               5. bkgnd "About Me"  (Id: 14409) of cards 1 to 3
  303.                   contains 0 bkgnd fields and 0 bkgnd buttons 
  304.  
  305.               1. card "About"  (Id: 14835) of bkgnd "About Me"
  306.                   contains 1 card field and 3 card buttons 
  307.                   - card field and card buttons  of card "About"
  308.                      1. card field "About Text"  (Id: 3)
  309.                      1. card button "Panik"  (Id: 2)
  310.                      2. card button "Continue"  (Id: 4)
  311.                      3. card button "By John Penner"  (Id: 5)
  312.  
  313.               2. card "John"  (Id: 32449) of bkgnd "About Me"
  314.                   contains 0 card fields and 2 card buttons 
  315.                   - card fields and card buttons  of card "John"
  316.                      1. card button "Say Hi"  (Id: 2)
  317.                      2. card button "Ok"  (Id: 3)
  318.  
  319.               3. card "Info"  (Id: 28853) of bkgnd "About Me"
  320.                   contains 1 card field and 1 card button 
  321.                   - card field and card button  of card "Info"
  322.                      1. card field id 1  (Id: 1)
  323.                      1. card button "Ok"  (Id: 2)
  324.  
  325.               4. card id 29664  (Id: 29664) of bkgnd "Records"
  326.                   contains 0 card fields and 0 card buttons 
  327.  
  328.               5. card id 34228  (Id: 34228) of bkgnd "Records"
  329.                   contains 0 card fields and 0 card buttons 
  330.  
  331.               6. card id 31808  (Id: 31808) of bkgnd "Records"
  332.                   contains 0 card fields and 0 card buttons 
  333.  
  334.               7. card id 15036  (Id: 15036) of bkgnd "Records"
  335.                   contains 0 card fields and 0 card buttons 
  336.  
  337.               8. card id 31308  (Id: 31308) of bkgnd "Records"
  338.                   contains 0 card fields and 0 card buttons 
  339.  
  340.               9. card id 25407  (Id: 25407) of bkgnd "Tapes"
  341.                   contains 0 card fields and 0 card buttons 
  342.  
  343.               10. card id 27699  (Id: 27699) of bkgnd "Tapes"
  344.                   contains 0 card fields and 0 card buttons 
  345.  
  346.               11. card id 25190  (Id: 25190) of bkgnd "Tapes"
  347.                   contains 0 card fields and 0 card buttons 
  348.  
  349.               12. card id 24652  (Id: 24652) of bkgnd "Tapes"
  350.                   contains 0 card fields and 0 card buttons 
  351.  
  352.               13. card id 29292  (Id: 29292) of bkgnd "Dubs"
  353.                   contains 0 card fields and 0 card buttons 
  354.  
  355.               14. card id 26785  (Id: 26785) of bkgnd "Dubs"
  356.                   contains 0 card fields and 1 card button 
  357.                   - card fields and card button  of card id 26785
  358.                      1. card button "Tapes"  (Id: 1)
  359.  
  360.               15. card id 29071  (Id: 29071) of bkgnd "Dubs"
  361.                   contains 0 card fields and 0 card buttons 
  362.  
  363.               16. card id 12517  (Id: 12517) of bkgnd "Discs"
  364.                   contains 0 card fields and 0 card buttons 
  365.  
  366.               17. card id 23516  (Id: 23516) of bkgnd "Discs"
  367.                   contains 0 card fields and 0 card buttons 
  368.  
  369.               18. card id 4486  (Id: 4486) of bkgnd "Discs"
  370.                   contains 0 card fields and 0 card buttons 
  371.  
  372.               19. card id 4888  (Id: 4888) of bkgnd "Discs"
  373.                   contains 0 card fields and 0 card buttons 
  374.  
  375.               20. card id 5364  (Id: 5364) of bkgnd "Discs"
  376.                   contains 0 card fields and 0 card buttons 
  377.  
  378.               21. card id 19391  (Id: 19391) of bkgnd "Discs"
  379.                   contains 0 card fields and 0 card buttons 
  380.  
  381.               22. card id 15385  (Id: 15385) of bkgnd "Discs"
  382.                   contains 0 card fields and 0 card buttons 
  383.  
  384.               23. card id 12800  (Id: 12800) of bkgnd "Discs"
  385.                   contains 0 card fields and 0 card buttons 
  386.  
  387.               24. card id 7723  (Id: 7723) of bkgnd "Discs"
  388.                   contains 0 card fields and 0 card buttons 
  389.  
  390.               25. card id 20279  (Id: 20279) of bkgnd "Discs"
  391.                   contains 0 card fields and 0 card buttons 
  392.  
  393.               26. card id 21108  (Id: 21108) of bkgnd "Discs"
  394.                   contains 0 card fields and 0 card buttons 
  395.  
  396.               27. card id 22882  (Id: 22882) of bkgnd "Discs"
  397.                   contains 0 card fields and 0 card buttons 
  398.  
  399.               28. card id 23604  (Id: 23604) of bkgnd "Discs"
  400.                   contains 0 card fields and 0 card buttons 
  401.  
  402.               29. card id 20018  (Id: 20018) of bkgnd "Discs"
  403.                   contains 0 card fields and 0 card buttons 
  404.  
  405.               30. card id 13151  (Id: 13151) of bkgnd "Discs"
  406.                   contains 0 card fields and 0 card buttons 
  407.  
  408.               31. card id 2271  (Id: 2271) of bkgnd "Discs"
  409.                   contains 0 card fields and 0 card buttons 
  410.  
  411.               32. card id 15321  (Id: 15321) of bkgnd "Discs"
  412.                   contains 0 card fields and 0 card buttons 
  413.  
  414.               33. card id 10756  (Id: 10756) of bkgnd "Discs"
  415.                   contains 0 card fields and 0 card buttons 
  416.  
  417. End of analysis